1 INPUTX,Y,R,P:HIRES:POKE#219,X:POKE#21A,Y:POKE#213,P:POKE#2E3,1
2 FORA=1TOR:POKE#2E1,A:CALL#F318:NEXT